home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / kakudai.dxr / 00004.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  931 b   |  28 lines
  1. on exitFrame
  2.   global gva, gvwinbpx, gvwinbpy, gvkauahondara
  3.   dontPassEvent()
  4.   if the visible of window "├ñg├½├é" then
  5.     set gva to the rect of window "├ñg├½├é"
  6.     set lvrectv to (getAt(gva, 4) - getAt(gva, 2)) / 2
  7.     set lvrecth to (getAt(gva, 3) - getAt(gva, 1)) / 2
  8.     if gvkauahondara = 1 then
  9.       tell the stage
  10.         spriteBox(46, gvwinbpx, gvwinbpy, gvwinbpx + lvrecth, gvwinbpy + lvrectv)
  11.         updateStage()
  12.       end tell
  13.       set gvkauahondara to 0
  14.     end if
  15.     set lvmuh to the mouseH
  16.     set lvmuv to the mouseV
  17.     set lvhelpp to the drawRect of window "├ñg├½├é"
  18.     if (lvmuh > abs(getAt(lvhelpp, 1))) and (lvmuh < (abs(getAt(lvhelpp, 1)) + (lvrecth * 2))) and (lvmuv > abs(getAt(lvhelpp, 2))) and (lvmuv < (abs(getAt(lvhelpp, 2)) + (lvrectv * 2))) then
  19.       helphyoujikakudai("on")
  20.     else
  21.       helphyoujikakudai("Off")
  22.     end if
  23.   else
  24.     helphyoujikakudai("Off")
  25.   end if
  26.   go("KAKUDAI")
  27. end
  28.